home *** CD-ROM | disk | FTP | other *** search
/ Digital Photo Album: Houko Kuwashima / Digital Photo Album: Houko Kuwashima.iso / pro.dxr / 00010.ls < prev    next >
Encoding:
Text File  |  1998-11-02  |  373 b   |  14 lines
  1. on profileinit
  2.   clearGlobals()
  3.   puppetTempo(15)
  4.   puppetSound(2, "profile.aif")
  5.   puppetSprite(20, 1)
  6.   set randomcastnum to random(86) + 1
  7.   if randomcastnum < 10 then
  8.     set randomcastnum to "0" & randomcastnum
  9.   end if
  10.   set randomphoto to "INT_PR" & randomcastnum & ".PIC"
  11.   set the castNum of sprite 20 to member randomphoto
  12.   set the visible of sprite 20 to 1
  13. end
  14.